home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / GETCURSOR < prev    next >
Text File  |  1997-04-05  |  306b  |  5 lines
  1. GETCURSOR: procedure;do until key~="NOCHAR";maygetchar;key=result;end
  2.   if key="1B"x then do 2;maygetchar;key=result;end;else if key="D"x then return "5";else return upper(key)
  3.   if key="A" then return "8";if key="B" then return "2";if key="C" then return "6";if key="D" then return "4"
  4.  return upper(key)
  5.